﻿Module Module1
  Sub Main()

    Dim sexA As Boolean = False    ' sesso "F"
    Dim sexB As Boolean = True     ' sesso "M"

    If (sexA And Not sexB) Or
       (Not sexA And sexB) Then
      Console.WriteLine("OK")
    Else
      Console.WriteLine("KO")
    End If
    Console.ReadLine()

  End Sub
End Module
